home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / code_gen / vbxwzrd / bmpfilm.h@ < prev    next >
Encoding:
Text File  |  1995-02-22  |  6.7 KB  |  201 lines
  1. //---------------------------------------------------------------------------
  2. // BmpFilm.h
  3. //---------------------------------------------------------------------------
  4.  
  5. //---------------------------------------------------------------------------
  6. // Resource Information
  7. //---------------------------------------------------------------------------
  8. // Toolbox bitmap resource IDs numbers.
  9. //---------------------------------------------------------------------------
  10. #define IDBMP_BmpFilm            8000
  11. #define IDBMP_BmpFilmDOWN        8001
  12. #define IDBMP_BmpFilmMONO        8003
  13. #define IDBMP_BmpFilmEGA         8006
  14.  
  15. //---------------------------------------------------------------------------
  16. // Update these fields for each build.
  17. //---------------------------------------------------------------------------
  18. #define VBX_VERSION                3,00,0,00
  19. #define VBX_VERSION_STR            "3.00.000"
  20.  
  21. #ifndef RC_INVOKED
  22. //---------------------------------------------------------------------------
  23. // Macro for referencing member of structure
  24. //---------------------------------------------------------------------------
  25. #define OFFSETIN(struc,field)      ((USHORT)&(((struc *)0)->field))
  26.  
  27.  
  28. //---------------------------------------------------------------------------
  29. // Control Procedure
  30. //---------------------------------------------------------------------------
  31. LONG FAR PASCAL _export BmpFilmCtlProc(HCTL, HWND, USHORT, USHORT, LONG);
  32.  
  33. //---------------------------------------------------------------------------
  34. // BmpFilm control data and structs
  35. //---------------------------------------------------------------------------
  36. typedef struct tagBmpFilm
  37.     {
  38.     ENUM    About;
  39.     HPIC    Picture;
  40.     SHORT   Interval;
  41.     SHORT   Cols;
  42.     SHORT   Rows;        
  43.     int     Col;
  44.     int     Row;  
  45.     } BmpFilm;
  46.  
  47. typedef BmpFilm FAR * LPBmpFilm;
  48.  
  49. #define LpBmpFilmDEREF(hctl)          ((LPBmpFilm)VBDerefControl(hctl))
  50.  
  51.  
  52. //---------------------------------------------------------------------------
  53. // Property info
  54. //---------------------------------------------------------------------------
  55.  
  56. PROPINFO Property_About =
  57.     {
  58.     "About",
  59.     DT_ENUM | PF_fGetData | PF_fSetMsg | PF_fSetMsg,
  60.     OFFSETIN(BmpFilm, About),    0,
  61.     0,
  62.     "Click on ""..."" for About Box\0",
  63.     0
  64.     };
  65.  
  66. PROPINFO Property_Picture =
  67.     {
  68.     "Picture",
  69.     DT_PICTURE | PF_fGetData | PF_fSaveData | PF_fSetData | PF_fSetMsg,
  70.     OFFSETIN(BmpFilm, Picture),
  71.     0, 0,  NULL, 0
  72.     };
  73.  
  74. PROPINFO Property_Interval =
  75.     {
  76.     "Interval",
  77.     DT_SHORT | PF_fGetData | PF_fSaveData | PF_fSetData | PF_fSetMsg,
  78.     OFFSETIN(BmpFilm, Interval),
  79.     0, 0,  NULL, 0
  80.     };
  81.  
  82. PROPINFO Property_Cols =
  83.     {
  84.     "Cols",
  85.     DT_SHORT | PF_fGetData | PF_fSaveData | PF_fSetData | PF_fSetMsg,
  86.     OFFSETIN(BmpFilm, Cols),
  87.     0, 0,  NULL, 0
  88.     };
  89.  
  90. PROPINFO Property_Rows =
  91.     {
  92.     "Rows",
  93.     DT_SHORT | PF_fGetData | PF_fSaveData | PF_fSetData | PF_fSetMsg,
  94.     OFFSETIN(BmpFilm, Rows),
  95.     0, 0,  NULL, 0
  96.     };
  97.  
  98.  
  99. //---------------------------------------------------------------------------
  100. // Property list
  101. //---------------------------------------------------------------------------
  102. // Define the consecutive indicies for the properties
  103. //---------------------------------------------------------------------------
  104. #define IPROP_BmpFilm_CTLNAME              0
  105. #define IPROP_BmpFilm_HWND              1
  106. #define IPROP_BmpFilm_INDEX              2
  107. #define IPROP_BmpFilm_About              3
  108. #define IPROP_BmpFilm_ENABLED              4
  109. #define IPROP_BmpFilm_HEIGHT              5
  110. #define IPROP_BmpFilm_LEFT              6
  111. #define IPROP_BmpFilm_TOP              7
  112. #define IPROP_BmpFilm_VISIBLE              8
  113. #define IPROP_BmpFilm_WIDTH              9
  114. #define IPROP_BmpFilm_Picture              10
  115. #define IPROP_BmpFilm_Interval              11
  116. #define IPROP_BmpFilm_Cols              12
  117. #define IPROP_BmpFilm_Rows              13
  118.  
  119. PPROPINFO BmpFilm_Properties[] =
  120.     {
  121.     PPROPINFO_STD_CTLNAME,
  122.     PPROPINFO_STD_HWND,
  123.     PPROPINFO_STD_INDEX,
  124.     &Property_About,
  125.     PPROPINFO_STD_ENABLED,
  126.     PPROPINFO_STD_HEIGHT,
  127.     PPROPINFO_STD_LEFT,
  128.     PPROPINFO_STD_TOP,
  129.     PPROPINFO_STD_VISIBLE,
  130.     PPROPINFO_STD_WIDTH,
  131.     &Property_Picture,
  132.     &Property_Interval,
  133.     &Property_Cols,
  134.     &Property_Rows,
  135.     NULL
  136.     };
  137.  
  138.  
  139. //---------------------------------------------------------------------------
  140. // Event info
  141. //---------------------------------------------------------------------------
  142. EVENTINFO Event_Paint =
  143.     {
  144.     "Paint",
  145.     0,
  146.     0,
  147.     NULL,
  148.     NULL
  149.     };
  150.  
  151.  
  152. //---------------------------------------------------------------------------
  153. // Event list
  154. //---------------------------------------------------------------------------
  155. // Define the consecutive indicies for the events
  156. //---------------------------------------------------------------------------
  157. #define IEVENT_BmpFilm_CLICK            0
  158. #define IEVENT_BmpFilm_DBLCLICK            1
  159. #define IEVENT_BmpFilm_MOUSEDOWN            2
  160. #define IEVENT_BmpFilm_MOUSEMOVE            3
  161. #define IEVENT_BmpFilm_MOUSEUP            4
  162. #define IEVENT_BmpFilm_Paint            5
  163.  
  164. PEVENTINFO 
  165. BmpFilm_Events[] =
  166.     {
  167.     PEVENTINFO_STD_CLICK,
  168.     PEVENTINFO_STD_DBLCLICK,
  169.     PEVENTINFO_STD_MOUSEDOWN,
  170.     PEVENTINFO_STD_MOUSEMOVE,
  171.     PEVENTINFO_STD_MOUSEUP,
  172.     &Event_Paint,
  173.     NULL
  174.     };
  175.  
  176.  
  177. //---------------------------------------------------------------------------
  178. // Model struct
  179. //---------------------------------------------------------------------------
  180. // Define the control model (using the event and property structures).
  181. //---------------------------------------------------------------------------
  182. MODEL modelBmpFilm =
  183.     {
  184.     VB_VERSION,                         // VB version being used
  185.     0,  // MODEL flags
  186.     (PCTLPROC)BmpFilmCtlProc,            // Control procedure
  187.     0 | CS_HREDRAW | CS_VREDRAW,  // Class style
  188.     0L,  // Default Windows style
  189.     sizeof(BmpFilm),                       // Size of CIRC structure
  190.     IDBMP_BmpFilm,                       // Palette bitmap ID
  191.     "BmpFilm",                           // Default control name
  192.     "BmpFilm",                            // Visual Basic class name
  193.     NULL,                               // Parent class name
  194.     BmpFilm_Properties,                  // Property information table
  195.     BmpFilm_Events,                      // Event information table
  196.     0,                                  // Default property
  197.     0,                                  // Default event
  198.     };
  199. #endif  // RC_INVOKED
  200. //---------------------------------------------------------------------------
  201.